home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TASMSWAN.ZIP / FILLSTR.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-07-17  |  552 b   |  31 lines
  1. %TITLE "External Turbo Pascal String-Filler function"
  2.  
  3.     IDEAL
  4.     MODEL    TPASCAL
  5.  
  6.     CODESEG
  7.  
  8.     PUBLIC    FillString
  9.  
  10. %NEWPAGE
  11. ;------------------------------------------------------------------------
  12. ;  FUNCTION FillString( n : Byte; ch : Char ) : String;
  13. ;------------------------------------------------------------------------
  14. PROC    FillString    NEAR
  15.     ARG n:BYTE:2, c:BYTE:2 RETURNS string:dword
  16.  
  17.     les    di,[string]
  18.     mov    al,[n]
  19.     cld
  20.     stosb
  21.     xor    ch,ch
  22.     mov    cl,al
  23.     mov    al, [c]
  24.     jcxz    @@99
  25.     repnz    stosb
  26. @@99:
  27.     ret
  28. ENDP FillString
  29.  
  30.     END
  31.